*****************************************************************************
* Title: rwanda_student_baseline_modify1_aux1.do
* Author: Todd Pugatch
* Last update: 7 Jun 2017
* Description: auxiliary do-file to code creativity questions in Section 14 of baseline student survey
*
******************************************************************************
# delimit;

* note that Todd imputed "2" rating (of 4) to all "other/none of the above" responses;
* Paul Doehring's ratings (Rater 1);
qui gen proj_desc_1400_r1=.;
qui replace proj_desc_1400_r1=2 if proj_desc_1400==-66;
qui replace proj_desc_1400_r1=0 if proj_desc_1400==-55;
qui replace proj_desc_1400_r1=1 if proj_desc_1400==1;
qui replace proj_desc_1400_r1=1 if proj_desc_1400==2;
qui replace proj_desc_1400_r1=1 if proj_desc_1400==3;
qui replace proj_desc_1400_r1=2 if proj_desc_1400==4;
qui replace proj_desc_1400_r1=2 if proj_desc_1400==5;
qui replace proj_desc_1400_r1=1 if proj_desc_1400==6;
qui replace proj_desc_1400_r1=2 if proj_desc_1400==7;

qui gen specify_1400_r1=.;
qui replace specify_1400_r1=1 if specify_1400=="AGRICULTURE AND TRADING";
qui replace specify_1400_r1=2 if specify_1400=="ART OF MUSIC";
qui replace specify_1400_r1=1 if specify_1400=="Agricultural inputs";
qui replace specify_1400_r1=1 if specify_1400=="Agricultural products";
qui replace specify_1400_r1=2 if specify_1400=="Art promotion";
qui replace specify_1400_r1=1 if specify_1400=="Baby stitting project";
qui replace specify_1400_r1=1 if specify_1400=="Bakery";
qui replace specify_1400_r1=1 if specify_1400=="Banana Plantation";
qui replace specify_1400_r1=2 if specify_1400=="Bank";
qui replace specify_1400_r1=1 if specify_1400=="Bar";
qui replace specify_1400_r1=4 if specify_1400=="Be a pilote";
qui replace specify_1400_r1=3 if specify_1400=="Bee Keeping";
qui replace specify_1400_r1=1 if specify_1400=="Beer";
qui replace specify_1400_r1=2 if specify_1400=="Bicycle riding";
qui replace specify_1400_r1=1 if specify_1400=="Brick making";
qui replace specify_1400_r1=2 if specify_1400=="Build the house for rent";
qui replace specify_1400_r1=1 if specify_1400=="Burning charcaol";
qui replace specify_1400_r1=1 if specify_1400=="Business";
qui replace specify_1400_r1=1 if specify_1400=="Buying a bicycle";
qui replace specify_1400_r1=1 if specify_1400=="Buying a truck";
qui replace specify_1400_r1=1 if specify_1400=="Cabbages";
qui replace specify_1400_r1=2 if specify_1400=="Campany of different materials";
qui replace specify_1400_r1=1 if specify_1400=="Cantine";
qui replace specify_1400_r1=2 if specify_1400=="Carpentry";
qui replace specify_1400_r1=2 if specify_1400=="Cars";
qui replace specify_1400_r1=1 if specify_1400=="Cassava";
qui replace specify_1400_r1=2 if specify_1400=="Cattle";
qui replace specify_1400_r1=1 if specify_1400=="Charcoal";
qui replace specify_1400_r1=2 if specify_1400=="Charging phones";
qui replace specify_1400_r1=1 if specify_1400=="Chicken";
qui replace specify_1400_r1=2 if specify_1400=="Chicken and goats";
qui replace specify_1400_r1=1 if specify_1400=="Chicken and rabbit";
qui replace specify_1400_r1=4 if specify_1400=="Civil Engineer";
qui replace specify_1400_r1=1 if specify_1400=="Clay";
qui replace specify_1400_r1=2 if specify_1400=="Clothes";
qui replace specify_1400_r1=2 if specify_1400=="Clothes and shoes";
qui replace specify_1400_r1=2 if specify_1400=="Clothes, shoes and other things";
qui replace specify_1400_r1=2 if specify_1400=="Coaching";
qui replace specify_1400_r1=2 if specify_1400=="Coffee";
qui replace specify_1400_r1=3 if specify_1400=="Community and Social service";
qui replace specify_1400_r1=1 if specify_1400=="Construction materials";
qui replace specify_1400_r1=2 if specify_1400=="Cows";
qui replace specify_1400_r1=2 if specify_1400=="Craft making ( jewelry, weaving)";
qui replace specify_1400_r1=3 if specify_1400=="Creating provate schools";
qui replace specify_1400_r1=1 if specify_1400=="Cultivating or trading";
qui replace specify_1400_r1=4 if specify_1400=="Cyber cafe and studio production";
qui replace specify_1400_r1=2 if specify_1400=="DECORATION BUSINESS";
qui replace specify_1400_r1=1 if specify_1400=="Deposit in to banks";
qui replace specify_1400_r1=2 if specify_1400=="Distribution of drinking water";
qui replace specify_1400_r1=1 if specify_1400=="Doors";
qui replace specify_1400_r1=1 if specify_1400=="Drinks";
qui replace specify_1400_r1=1 if specify_1400=="Driver";
qui replace specify_1400_r1=1 if specify_1400=="Driving motocycle";
qui replace specify_1400_r1=1 if specify_1400=="Dry cleaning";
qui replace specify_1400_r1=1 if specify_1400=="Egg plant";
qui replace specify_1400_r1=2 if specify_1400=="Electricity selling";
qui replace specify_1400_r1=2 if specify_1400=="Electronic materials";
qui replace specify_1400_r1=4 if specify_1400=="Entrepreneur";
qui replace specify_1400_r1=4 if specify_1400=="Establich an Insurance cmpany";
qui replace specify_1400_r1=4 if specify_1400=="Establish a football academy";
qui replace specify_1400_r1=4 if specify_1400=="Establish a medical clinic";
qui replace specify_1400_r1=3 if specify_1400=="Establish humanitarian NGO";
qui replace specify_1400_r1=2 if specify_1400=="Fabrication of flour products";
qui replace specify_1400_r1=1 if specify_1400=="Factory";
qui replace specify_1400_r1=1 if specify_1400=="Factory project";
qui replace specify_1400_r1=2 if specify_1400=="Fashion and design";
qui replace specify_1400_r1=2 if specify_1400=="Fashion design";
qui replace specify_1400_r1=2 if specify_1400=="Fashion shoes";
qui replace specify_1400_r1=3 if specify_1400=="Fishery";
qui replace specify_1400_r1=1 if specify_1400=="Food and drinks";
qui replace specify_1400_r1=4 if specify_1400=="Football player";
qui replace specify_1400_r1=4 if specify_1400=="Forex bureau";
qui replace specify_1400_r1=1 if specify_1400=="Forging";
qui replace specify_1400_r1=1 if specify_1400=="Fruits";
qui replace specify_1400_r1=1 if specify_1400=="Fruits and clothes";
qui replace specify_1400_r1=1 if specify_1400=="Furniture";
qui replace specify_1400_r1=1 if specify_1400=="Galic";
qui replace specify_1400_r1=2 if specify_1400=="Garage";
qui replace specify_1400_r1=2 if specify_1400=="Goats";
qui replace specify_1400_r1=2 if specify_1400=="Handcraft";
qui replace specify_1400_r1=2 if specify_1400=="Handcrafted products";
qui replace specify_1400_r1=2 if specify_1400=="High class fashion";
qui replace specify_1400_r1=2 if specify_1400=="Home use items";
qui replace specify_1400_r1=1 if specify_1400=="Horticulture";
qui replace specify_1400_r1=1 if specify_1400=="Horticulture, Chicken, rabbits";
qui replace specify_1400_r1=3 if specify_1400=="Hotel";
qui replace specify_1400_r1=4 if specify_1400=="IT training";
qui replace specify_1400_r1=4 if specify_1400=="Investment activities";
qui replace specify_1400_r1=1 if specify_1400=="Irish potatoes";
qui replace specify_1400_r1=1 if specify_1400=="Kitchen garden";
qui replace specify_1400_r1=1 if specify_1400=="Livestock and trading";
qui replace specify_1400_r1=1 if specify_1400=="Livestock and trading goods";
qui replace specify_1400_r1=1 if specify_1400=="Maize";
qui replace specify_1400_r1=1 if specify_1400=="Making  big calabash from pumpkin";
qui replace specify_1400_r1=3 if specify_1400=="Making Pineaple juice";
qui replace specify_1400_r1=3 if specify_1400=="Making Soap and cosmetics";
qui replace specify_1400_r1=2 if specify_1400=="Making bags";
qui replace specify_1400_r1=2 if specify_1400=="Making banana beer";
qui replace specify_1400_r1=2 if specify_1400=="Making clothes";
qui replace specify_1400_r1=1 if specify_1400=="Making compost manure";
qui replace specify_1400_r1=2 if specify_1400=="Making fruit juice";
qui replace specify_1400_r1=2 if specify_1400=="Making juice";
qui replace specify_1400_r1=2 if specify_1400=="Making notebooks";
qui replace specify_1400_r1=2 if specify_1400=="Making pineapple juice";
qui replace specify_1400_r1=2 if specify_1400=="Making school pollover";
qui replace specify_1400_r1=2 if specify_1400=="Making school uniform";
qui replace specify_1400_r1=2 if specify_1400=="Making shoes";
qui replace specify_1400_r1=3 if specify_1400=="Making soap";
qui replace specify_1400_r1=2 if specify_1400=="Making women' s hat";
qui replace specify_1400_r1=1 if specify_1400=="Masonry";
qui replace specify_1400_r1=2 if specify_1400=="Mechanician";
qui replace specify_1400_r1=3 if specify_1400=="Media";
qui replace specify_1400_r1=4 if specify_1400=="Medical center";
qui replace specify_1400_r1=4 if specify_1400=="Medical clinic";
qui replace specify_1400_r1=4 if specify_1400=="Mobile money transfer services";
qui replace specify_1400_r1=4 if specify_1400=="Mobile phones";
qui replace specify_1400_r1=1 if specify_1400=="Modern Design";
qui replace specify_1400_r1=1 if specify_1400=="Moto driver";
qui replace specify_1400_r1=1 if specify_1400=="Moto driving";
qui replace specify_1400_r1=1 if specify_1400=="Mushroom and chicken";
qui replace specify_1400_r1=4 if specify_1400=="Music & Film";
qui replace specify_1400_r1=4 if specify_1400=="Music production";
qui replace specify_1400_r1=4 if specify_1400=="Music products";
qui replace specify_1400_r1=0 if specify_1400=="None";
qui replace specify_1400_r1=1 if specify_1400=="Nuts";
qui replace specify_1400_r1=1 if specify_1400=="Onion";
qui replace specify_1400_r1=2 if specify_1400=="Open a campany";
qui replace specify_1400_r1=1 if specify_1400=="Petty trade";
qui replace specify_1400_r1=4 if specify_1400=="Pharmacy";
qui replace specify_1400_r1=4 if specify_1400=="Photo lab studio";
qui replace specify_1400_r1=4 if specify_1400=="Photography";
qui replace specify_1400_r1=1 if specify_1400=="Pineapples";
qui replace specify_1400_r1=2 if specify_1400=="Pinneaple, Sheep";
qui replace specify_1400_r1=1 if specify_1400=="Potatoes";
qui replace specify_1400_r1=1 if specify_1400=="Processing of agricultural products";
qui replace specify_1400_r1=3 if specify_1400=="Products of Tigo";
qui replace specify_1400_r1=3 if specify_1400=="Professional journalist";
qui replace specify_1400_r1=2 if specify_1400=="Public secretariat";
qui replace specify_1400_r1=2 if specify_1400=="Rabbit";
qui replace specify_1400_r1=4 if specify_1400=="Reaserch";
qui replace specify_1400_r1=3 if specify_1400=="Rent wedding materials";
qui replace specify_1400_r1=2 if specify_1400=="Repairing computers";
qui replace specify_1400_r1=2 if specify_1400=="Repairing electronic materials";
qui replace specify_1400_r1=3 if specify_1400=="Research project in mining";
qui replace specify_1400_r1=1 if specify_1400=="Restaurant";
qui replace specify_1400_r1=2 if specify_1400=="Retail";
qui replace specify_1400_r1=2 if specify_1400=="SIM cards";
qui replace specify_1400_r1=3 if specify_1400=="Save it for future education";
qui replace specify_1400_r1=2 if specify_1400=="School Materials";
qui replace specify_1400_r1=2 if specify_1400=="School materials";
qui replace specify_1400_r1=1 if specify_1400=="Sewing";
qui replace specify_1400_r1=1 if specify_1400=="Shoes";
qui replace specify_1400_r1=1 if specify_1400=="Shoes and clothes";
qui replace specify_1400_r1=1 if specify_1400=="Showing people football matches";
qui replace specify_1400_r1=2 if specify_1400=="Small livestock";
qui replace specify_1400_r1=1 if specify_1400=="Small shop";
qui replace specify_1400_r1=2 if specify_1400=="Stitching  sweaters";
qui replace specify_1400_r1=3 if specify_1400=="Studying";
qui replace specify_1400_r1=2 if specify_1400=="Sugarcanes";
qui replace specify_1400_r1=1 if specify_1400=="Supermarket";
qui replace specify_1400_r1=2 if specify_1400=="Tailoring and fashion designer";
qui replace specify_1400_r1=2 if specify_1400=="Tailoring machine";
qui replace specify_1400_r1=1 if specify_1400=="Tamarillo";
qui replace specify_1400_r1=3 if specify_1400=="Teaching children at home";
qui replace specify_1400_r1=1 if specify_1400=="Tomatoes";
qui replace specify_1400_r1=2 if specify_1400=="Trading ,livestock";
qui replace specify_1400_r1=1 if specify_1400=="Trading and Farming";
qui replace specify_1400_r1=1 if specify_1400=="Traditional products";
qui replace specify_1400_r1=1 if specify_1400=="Transport";
qui replace specify_1400_r1=1 if specify_1400=="Transport of people on bicycle";
qui replace specify_1400_r1=1 if specify_1400=="Transportation";
qui replace specify_1400_r1=2 if specify_1400=="Trees";
qui replace specify_1400_r1=1 if specify_1400=="Vegetables";
qui replace specify_1400_r1=2 if specify_1400=="Vehicle Spare parts";
qui replace specify_1400_r1=2 if specify_1400=="Vehicles";
qui replace specify_1400_r1=2 if specify_1400=="WEAVING GLOVES BAGS BY USING WIRE";
qui replace specify_1400_r1=2 if specify_1400=="Water and electricity distribution";
qui replace specify_1400_r1=3 if specify_1400=="Wedding suits";
qui replace specify_1400_r1=2 if specify_1400=="Welding";
qui replace specify_1400_r1=2 if specify_1400=="Women and children's bags";
qui replace specify_1400_r1=2 if specify_1400=="Woods";
qui replace specify_1400_r1=2 if specify_1400=="Work manship";
qui replace specify_1400_r1=2 if specify_1400=="hardware store";
qui replace specify_1400_r1=2 if specify_1400=="watermelon";
qui replace specify_1400_r1=2 if specify_1400=="wholesale shop";

qui gen idea1_1401_r1=.;
qui replace idea1_1401_r1=0 if idea1_1401==-99;
qui replace idea1_1401_r1=2 if idea1_1401==-66;
qui replace idea1_1401_r1=0 if idea1_1401==-55;
qui replace idea1_1401_r1=2 if idea1_1401==1;
qui replace idea1_1401_r1=2 if idea1_1401==2;
qui replace idea1_1401_r1=1 if idea1_1401==3;
qui replace idea1_1401_r1=2 if idea1_1401==4;
qui replace idea1_1401_r1=1 if idea1_1401==5;
qui replace idea1_1401_r1=4 if idea1_1401==6;

qui gen idea2_1401_r1=.;
qui replace idea2_1401_r1=0 if idea2_1401==-99;
qui replace idea2_1401_r1=2 if idea2_1401==-66;
qui replace idea2_1401_r1=0 if idea2_1401==-55;
qui replace idea2_1401_r1=2 if idea2_1401==1;
qui replace idea2_1401_r1=2 if idea2_1401==2;
qui replace idea2_1401_r1=1 if idea2_1401==3;
qui replace idea2_1401_r1=2 if idea2_1401==4;
qui replace idea2_1401_r1=1 if idea2_1401==5;
qui replace idea2_1401_r1=4 if idea2_1401==6;

qui gen drawing_1403_r1=.;
qui replace drawing_1403_r1=0 if drawing_1403==-55;
qui replace drawing_1403_r1=1 if drawing_1403==1;
qui replace drawing_1403_r1=1 if drawing_1403==2;
qui replace drawing_1403_r1=1 if drawing_1403==3;
qui replace drawing_1403_r1=1 if drawing_1403==4;
qui replace drawing_1403_r1=2 if drawing_1403==5;
qui replace drawing_1403_r1=2 if drawing_1403==6;
qui replace drawing_1403_r1=2 if drawing_1403==7;
qui replace drawing_1403_r1=3 if drawing_1403==8;
qui replace drawing_1403_r1=3 if drawing_1403==9;
qui replace drawing_1403_r1=3 if drawing_1403==10;
qui replace drawing_1403_r1=3 if drawing_1403==11;
qui replace drawing_1403_r1=3 if drawing_1403==12;
qui replace drawing_1403_r1=4 if drawing_1403==13;
qui replace drawing_1403_r1=4 if drawing_1403==14;
qui replace drawing_1403_r1=4 if drawing_1403==15;
qui replace drawing_1403_r1=4 if drawing_1403==16;
qui replace drawing_1403_r1=4 if drawing_1403==17;
qui replace drawing_1403_r1=4 if drawing_1403==18;
qui replace drawing_1403_r1=4 if drawing_1403==19;
qui replace drawing_1403_r1=4 if drawing_1403==20;
qui replace drawing_1403_r1=4 if drawing_1403==21;
qui replace drawing_1403_r1=4 if drawing_1403==22;
qui replace drawing_1403_r1=4 if drawing_1403==23;
qui replace drawing_1403_r1=2 if drawing_1403==24;

qui gen drawing_1404_r1=.;
qui replace drawing_1404_r1=0 if drawing_1404==-55;
qui replace drawing_1404_r1=1 if drawing_1404==1;
qui replace drawing_1404_r1=1 if drawing_1404==2;
qui replace drawing_1404_r1=1 if drawing_1404==3;
qui replace drawing_1404_r1=2 if drawing_1404==4;
qui replace drawing_1404_r1=2 if drawing_1404==5;
qui replace drawing_1404_r1=2 if drawing_1404==6;
qui replace drawing_1404_r1=2 if drawing_1404==7;
qui replace drawing_1404_r1=2 if drawing_1404==8;
qui replace drawing_1404_r1=3 if drawing_1404==9;
qui replace drawing_1404_r1=3 if drawing_1404==10;
qui replace drawing_1404_r1=3 if drawing_1404==11;
qui replace drawing_1404_r1=4 if drawing_1404==12;
qui replace drawing_1404_r1=4 if drawing_1404==13;
qui replace drawing_1404_r1=4 if drawing_1404==14;
qui replace drawing_1404_r1=4 if drawing_1404==15;
qui replace drawing_1404_r1=4 if drawing_1404==16;
qui replace drawing_1404_r1=4 if drawing_1404==17;
qui replace drawing_1404_r1=2 if drawing_1404==18;

qui gen drawing_1405_r1=.;
qui replace drawing_1405_r1=0 if drawing_1405==-55;
qui replace drawing_1405_r1=1 if drawing_1405==1;
qui replace drawing_1405_r1=1 if drawing_1405==2;
qui replace drawing_1405_r1=1 if drawing_1405==3;
qui replace drawing_1405_r1=1 if drawing_1405==4;
qui replace drawing_1405_r1=1 if drawing_1405==5;
qui replace drawing_1405_r1=2 if drawing_1405==6;
qui replace drawing_1405_r1=2 if drawing_1405==7;
qui replace drawing_1405_r1=2 if drawing_1405==8;
qui replace drawing_1405_r1=3 if drawing_1405==9;
qui replace drawing_1405_r1=3 if drawing_1405==10;
qui replace drawing_1405_r1=3 if drawing_1405==11;
qui replace drawing_1405_r1=4 if drawing_1405==12;
qui replace drawing_1405_r1=4 if drawing_1405==13;
qui replace drawing_1405_r1=4 if drawing_1405==14;
qui replace drawing_1405_r1=4 if drawing_1405==15;
qui replace drawing_1405_r1=4 if drawing_1405==16;
qui replace drawing_1405_r1=4 if drawing_1405==17;
qui replace drawing_1405_r1=4 if drawing_1405==18;
qui replace drawing_1405_r1=4 if drawing_1405==19;
qui replace drawing_1405_r1=4 if drawing_1405==20;
qui replace drawing_1405_r1=4 if drawing_1405==21;
qui replace drawing_1405_r1=4 if drawing_1405==22;
qui replace drawing_1405_r1=4 if drawing_1405==23;
qui replace drawing_1405_r1=2 if drawing_1405==24;

* Julian Schwierzy's ratings (Rater 2);
qui gen proj_desc_1400_r2=.;
qui replace proj_desc_1400_r2=2 if proj_desc_1400==-66;
qui replace proj_desc_1400_r2=0 if proj_desc_1400==-55;
qui replace proj_desc_1400_r2=1 if proj_desc_1400==1;
qui replace proj_desc_1400_r2=1 if proj_desc_1400==2;
qui replace proj_desc_1400_r2=1 if proj_desc_1400==3;
qui replace proj_desc_1400_r2=3 if proj_desc_1400==4;
qui replace proj_desc_1400_r2=2 if proj_desc_1400==5;
qui replace proj_desc_1400_r2=1 if proj_desc_1400==6;
qui replace proj_desc_1400_r2=2 if proj_desc_1400==7;

qui gen specify_1400_r2=.;
qui replace specify_1400_r2=1 if specify_1400=="AGRICULTURE AND TRADING";
qui replace specify_1400_r2=3 if specify_1400=="ART OF MUSIC";
qui replace specify_1400_r2=1 if specify_1400=="Agricultural inputs";
qui replace specify_1400_r2=1 if specify_1400=="Agricultural products";
qui replace specify_1400_r2=3 if specify_1400=="Art promotion";
qui replace specify_1400_r2=4 if specify_1400=="Baby stitting project";
qui replace specify_1400_r2=1 if specify_1400=="Bakery";
qui replace specify_1400_r2=1 if specify_1400=="Banana Plantation";
qui replace specify_1400_r2=3 if specify_1400=="Bank";
qui replace specify_1400_r2=2 if specify_1400=="Bar";
qui replace specify_1400_r2=4 if specify_1400=="Be a pilote";
qui replace specify_1400_r2=3 if specify_1400=="Bee Keeping";
qui replace specify_1400_r2=2 if specify_1400=="Beer";
qui replace specify_1400_r2=2 if specify_1400=="Bicycle riding";
qui replace specify_1400_r2=1 if specify_1400=="Brick making";
qui replace specify_1400_r2=2 if specify_1400=="Build the house for rent";
qui replace specify_1400_r2=1 if specify_1400=="Burning charcaol";
qui replace specify_1400_r2=1 if specify_1400=="Business";
qui replace specify_1400_r2=1 if specify_1400=="Buying a bicycle";
qui replace specify_1400_r2=1 if specify_1400=="Buying a truck";
qui replace specify_1400_r2=1 if specify_1400=="Cabbages";
qui replace specify_1400_r2=2 if specify_1400=="Campany of different materials";
qui replace specify_1400_r2=1 if specify_1400=="Cantine";
qui replace specify_1400_r2=2 if specify_1400=="Carpentry";
qui replace specify_1400_r2=2 if specify_1400=="Cars";
qui replace specify_1400_r2=2 if specify_1400=="Cassava";
qui replace specify_1400_r2=2 if specify_1400=="Cattle";
qui replace specify_1400_r2=1 if specify_1400=="Charcoal";
qui replace specify_1400_r2=2 if specify_1400=="Charging phones";
qui replace specify_1400_r2=1 if specify_1400=="Chicken";
qui replace specify_1400_r2=2 if specify_1400=="Chicken and goats";
qui replace specify_1400_r2=2 if specify_1400=="Chicken and rabbit";
qui replace specify_1400_r2=3 if specify_1400=="Civil Engineer";
qui replace specify_1400_r2=1 if specify_1400=="Clay";
qui replace specify_1400_r2=2 if specify_1400=="Clothes";
qui replace specify_1400_r2=2 if specify_1400=="Clothes and shoes";
qui replace specify_1400_r2=2 if specify_1400=="Clothes, shoes and other things";
qui replace specify_1400_r2=3 if specify_1400=="Coaching";
qui replace specify_1400_r2=1 if specify_1400=="Coffee";
qui replace specify_1400_r2=1 if specify_1400=="Community and Social service";
qui replace specify_1400_r2=2 if specify_1400=="Construction materials";
qui replace specify_1400_r2=1 if specify_1400=="Cows";
qui replace specify_1400_r2=2 if specify_1400=="Craft making ( jewelry, weaving)";
qui replace specify_1400_r2=3 if specify_1400=="Creating provate schools";
qui replace specify_1400_r2=1 if specify_1400=="Cultivating or trading";
qui replace specify_1400_r2=2 if specify_1400=="Cyber cafe and studio production";
qui replace specify_1400_r2=3 if specify_1400=="DECORATION BUSINESS";
qui replace specify_1400_r2=2 if specify_1400=="Deposit in to banks";
qui replace specify_1400_r2=2 if specify_1400=="Distribution of drinking water";
qui replace specify_1400_r2=2 if specify_1400=="Doors";
qui replace specify_1400_r2=1 if specify_1400=="Drinks";
qui replace specify_1400_r2=1 if specify_1400=="Driver";
qui replace specify_1400_r2=1 if specify_1400=="Driving motocycle";
qui replace specify_1400_r2=1 if specify_1400=="Dry cleaning";
qui replace specify_1400_r2=1 if specify_1400=="Egg plant";
qui replace specify_1400_r2=3 if specify_1400=="Electricity selling";
qui replace specify_1400_r2=2 if specify_1400=="Electronic materials";
qui replace specify_1400_r2=1 if specify_1400=="Entrepreneur";
qui replace specify_1400_r2=4 if specify_1400=="Establich an Insurance cmpany";
qui replace specify_1400_r2=4 if specify_1400=="Establish a football academy";
qui replace specify_1400_r2=4 if specify_1400=="Establish a medical clinic";
qui replace specify_1400_r2=3 if specify_1400=="Establish humanitarian NGO";
qui replace specify_1400_r2=1 if specify_1400=="Fabrication of flour products";
qui replace specify_1400_r2=1 if specify_1400=="Factory";
qui replace specify_1400_r2=1 if specify_1400=="Factory project";
qui replace specify_1400_r2=3 if specify_1400=="Fashion and design";
qui replace specify_1400_r2=3 if specify_1400=="Fashion design";
qui replace specify_1400_r2=3 if specify_1400=="Fashion shoes";
qui replace specify_1400_r2=3 if specify_1400=="Fishery";
qui replace specify_1400_r2=1 if specify_1400=="Food and drinks";
qui replace specify_1400_r2=0 if specify_1400=="Football player";
qui replace specify_1400_r2=3 if specify_1400=="Forex bureau";
qui replace specify_1400_r2=2 if specify_1400=="Forging";
qui replace specify_1400_r2=1 if specify_1400=="Fruits";
qui replace specify_1400_r2=2 if specify_1400=="Fruits and clothes";
qui replace specify_1400_r2=2 if specify_1400=="Furniture";
qui replace specify_1400_r2=2 if specify_1400=="Galic";
qui replace specify_1400_r2=2 if specify_1400=="Garage";
qui replace specify_1400_r2=2 if specify_1400=="Goats";
qui replace specify_1400_r2=1 if specify_1400=="Handcraft";
qui replace specify_1400_r2=1 if specify_1400=="Handcrafted products";
qui replace specify_1400_r2=3 if specify_1400=="High class fashion";
qui replace specify_1400_r2=1 if specify_1400=="Home use items";
qui replace specify_1400_r2=1 if specify_1400=="Horticulture";
qui replace specify_1400_r2=1 if specify_1400=="Horticulture, Chicken, rabbits";
qui replace specify_1400_r2=1 if specify_1400=="Hotel";
qui replace specify_1400_r2=3 if specify_1400=="IT training";
qui replace specify_1400_r2=3 if specify_1400=="Investment activities";
qui replace specify_1400_r2=3 if specify_1400=="Irish potatoes";
qui replace specify_1400_r2=2 if specify_1400=="Kitchen garden";
qui replace specify_1400_r2=1 if specify_1400=="Livestock and trading";
qui replace specify_1400_r2=1 if specify_1400=="Livestock and trading goods";
qui replace specify_1400_r2=1 if specify_1400=="Maize";
qui replace specify_1400_r2=3 if specify_1400=="Making  big calabash from pumpkin";
qui replace specify_1400_r2=1 if specify_1400=="Making Pineaple juice";
qui replace specify_1400_r2=3 if specify_1400=="Making Soap and cosmetics";
qui replace specify_1400_r2=1 if specify_1400=="Making bags";
qui replace specify_1400_r2=4 if specify_1400=="Making banana beer";
qui replace specify_1400_r2=2 if specify_1400=="Making clothes";
qui replace specify_1400_r2=4 if specify_1400=="Making compost manure";
qui replace specify_1400_r2=1 if specify_1400=="Making fruit juice";
qui replace specify_1400_r2=1 if specify_1400=="Making juice";
qui replace specify_1400_r2=3 if specify_1400=="Making notebooks";
qui replace specify_1400_r2=1 if specify_1400=="Making pineapple juice";
qui replace specify_1400_r2=3 if specify_1400=="Making school pollover";
qui replace specify_1400_r2=3 if specify_1400=="Making school uniform";
qui replace specify_1400_r2=2 if specify_1400=="Making shoes";
qui replace specify_1400_r2=3 if specify_1400=="Making soap";
qui replace specify_1400_r2=4 if specify_1400=="Making women' s hat";
qui replace specify_1400_r2=2 if specify_1400=="Masonry";
qui replace specify_1400_r2=2 if specify_1400=="Mechanician";
qui replace specify_1400_r2=3 if specify_1400=="Media";
qui replace specify_1400_r2=3 if specify_1400=="Medical center";
qui replace specify_1400_r2=3 if specify_1400=="Medical clinic";
qui replace specify_1400_r2=4 if specify_1400=="Mobile money transfer services";
qui replace specify_1400_r2=2 if specify_1400=="Mobile phones";
qui replace specify_1400_r2=3 if specify_1400=="Modern Design";
qui replace specify_1400_r2=1 if specify_1400=="Moto driver";
qui replace specify_1400_r2=1 if specify_1400=="Moto driving";
qui replace specify_1400_r2=3 if specify_1400=="Mushroom and chicken";
qui replace specify_1400_r2=3 if specify_1400=="Music & Film";
qui replace specify_1400_r2=3 if specify_1400=="Music production";
qui replace specify_1400_r2=3 if specify_1400=="Music products";
qui replace specify_1400_r2=0 if specify_1400=="None";
qui replace specify_1400_r2=1 if specify_1400=="Nuts";
qui replace specify_1400_r2=2 if specify_1400=="Onion";
qui replace specify_1400_r2=1 if specify_1400=="Open a campany";
qui replace specify_1400_r2=1 if specify_1400=="Petty trade";
qui replace specify_1400_r2=3 if specify_1400=="Pharmacy";
qui replace specify_1400_r2=3 if specify_1400=="Photo lab studio";
qui replace specify_1400_r2=3 if specify_1400=="Photography";
qui replace specify_1400_r2=2 if specify_1400=="Pineapples";
qui replace specify_1400_r2=2 if specify_1400=="Pinneaple, Sheep";
qui replace specify_1400_r2=1 if specify_1400=="Potatoes";
qui replace specify_1400_r2=1 if specify_1400=="Processing of agricultural products";
qui replace specify_1400_r2=3 if specify_1400=="Products of Tigo";
qui replace specify_1400_r2=4 if specify_1400=="Professional journalist";
qui replace specify_1400_r2=4 if specify_1400=="Public secretariat";
qui replace specify_1400_r2=2 if specify_1400=="Rabbit";
qui replace specify_1400_r2=4 if specify_1400=="Reaserch";
qui replace specify_1400_r2=3 if specify_1400=="Rent wedding materials";
qui replace specify_1400_r2=2 if specify_1400=="Repairing computers";
qui replace specify_1400_r2=2 if specify_1400=="Repairing electronic materials";
qui replace specify_1400_r2=4 if specify_1400=="Research project in mining";
qui replace specify_1400_r2=2 if specify_1400=="Restaurant";
qui replace specify_1400_r2=2 if specify_1400=="Retail";
qui replace specify_1400_r2=2 if specify_1400=="SIM cards";
qui replace specify_1400_r2=3 if specify_1400=="Save it for future education";
qui replace specify_1400_r2=3 if specify_1400=="School Materials";
qui replace specify_1400_r2=3 if specify_1400=="School materials";
qui replace specify_1400_r2=2 if specify_1400=="Sewing";
qui replace specify_1400_r2=2 if specify_1400=="Shoes";
qui replace specify_1400_r2=2 if specify_1400=="Shoes and clothes";
qui replace specify_1400_r2=2 if specify_1400=="Showing people football matches";
qui replace specify_1400_r2=1 if specify_1400=="Small livestock";
qui replace specify_1400_r2=2 if specify_1400=="Small shop";
qui replace specify_1400_r2=2 if specify_1400=="Stitching  sweaters";
qui replace specify_1400_r2=3 if specify_1400=="Studying";
qui replace specify_1400_r2=3 if specify_1400=="Sugarcanes";
qui replace specify_1400_r2=2 if specify_1400=="Supermarket";
qui replace specify_1400_r2=3 if specify_1400=="Tailoring and fashion designer";
qui replace specify_1400_r2=2 if specify_1400=="Tailoring machine";
qui replace specify_1400_r2=3 if specify_1400=="Tamarillo";
qui replace specify_1400_r2=3 if specify_1400=="Teaching children at home";
qui replace specify_1400_r2=1 if specify_1400=="Tomatoes";
qui replace specify_1400_r2=1 if specify_1400=="Trading ,livestock";
qui replace specify_1400_r2=1 if specify_1400=="Trading and Farming";
qui replace specify_1400_r2=1 if specify_1400=="Traditional products";
qui replace specify_1400_r2=1 if specify_1400=="Transport";
qui replace specify_1400_r2=1 if specify_1400=="Transport of people on bicycle";
qui replace specify_1400_r2=1 if specify_1400=="Transportation";
qui replace specify_1400_r2=2 if specify_1400=="Trees";
qui replace specify_1400_r2=1 if specify_1400=="Vegetables";
qui replace specify_1400_r2=2 if specify_1400=="Vehicle Spare parts";
qui replace specify_1400_r2=1 if specify_1400=="Vehicles";
qui replace specify_1400_r2=2 if specify_1400=="WEAVING GLOVES BAGS BY USING WIRE";
qui replace specify_1400_r2=2 if specify_1400=="Water and electricity distribution";
qui replace specify_1400_r2=3 if specify_1400=="Wedding suits";
qui replace specify_1400_r2=3 if specify_1400=="Welding";
qui replace specify_1400_r2=3 if specify_1400=="Women and children's bags";
qui replace specify_1400_r2=2 if specify_1400=="Woods";
qui replace specify_1400_r2=1 if specify_1400=="Work manship";
qui replace specify_1400_r2=2 if specify_1400=="hardware store";
qui replace specify_1400_r2=2 if specify_1400=="watermelon";
qui replace specify_1400_r2=2 if specify_1400=="wholesale shop";

qui gen idea1_1401_r2=.;
qui replace idea1_1401_r2=0 if idea1_1401==-99;
qui replace idea1_1401_r2=2 if idea1_1401==-66;
qui replace idea1_1401_r2=0 if idea1_1401==-55;
qui replace idea1_1401_r2=1 if idea1_1401==1;
qui replace idea1_1401_r2=4 if idea1_1401==2;
qui replace idea1_1401_r2=1 if idea1_1401==3;
qui replace idea1_1401_r2=3 if idea1_1401==4;
qui replace idea1_1401_r2=2 if idea1_1401==5;
qui replace idea1_1401_r2=3 if idea1_1401==6;

qui gen idea2_1401_r2=.;
qui replace idea2_1401_r2=0 if idea2_1401==-99;
qui replace idea2_1401_r2=2 if idea2_1401==-66;
qui replace idea2_1401_r2=0 if idea2_1401==-55;
qui replace idea2_1401_r2=1 if idea2_1401==1;
qui replace idea2_1401_r2=4 if idea2_1401==2;
qui replace idea2_1401_r2=1 if idea2_1401==3;
qui replace idea2_1401_r2=3 if idea2_1401==4;
qui replace idea2_1401_r2=2 if idea2_1401==5;
qui replace idea2_1401_r2=3 if idea2_1401==6;

qui gen drawing_1403_r2=.;
qui replace drawing_1403_r2=0 if drawing_1403==-55;
qui replace drawing_1403_r2=1 if drawing_1403==1;
qui replace drawing_1403_r2=1 if drawing_1403==2;
qui replace drawing_1403_r2=1 if drawing_1403==3;
qui replace drawing_1403_r2=1 if drawing_1403==4;
qui replace drawing_1403_r2=2 if drawing_1403==5;
qui replace drawing_1403_r2=2 if drawing_1403==6;
qui replace drawing_1403_r2=2 if drawing_1403==7;
qui replace drawing_1403_r2=3 if drawing_1403==8;
qui replace drawing_1403_r2=3 if drawing_1403==9;
qui replace drawing_1403_r2=3 if drawing_1403==10;
qui replace drawing_1403_r2=3 if drawing_1403==11;
qui replace drawing_1403_r2=3 if drawing_1403==12;
qui replace drawing_1403_r2=4 if drawing_1403==13;
qui replace drawing_1403_r2=4 if drawing_1403==14;
qui replace drawing_1403_r2=4 if drawing_1403==15;
qui replace drawing_1403_r2=4 if drawing_1403==16;
qui replace drawing_1403_r2=4 if drawing_1403==17;
qui replace drawing_1403_r2=4 if drawing_1403==18;
qui replace drawing_1403_r2=4 if drawing_1403==19;
qui replace drawing_1403_r2=4 if drawing_1403==20;
qui replace drawing_1403_r2=4 if drawing_1403==21;
qui replace drawing_1403_r2=4 if drawing_1403==22;
qui replace drawing_1403_r2=4 if drawing_1403==23;
qui replace drawing_1403_r2=2 if drawing_1403==24;

qui gen drawing_1404_r2=.;
qui replace drawing_1404_r2=0 if drawing_1404==-55;
qui replace drawing_1404_r2=1 if drawing_1404==1;
qui replace drawing_1404_r2=1 if drawing_1404==2;
qui replace drawing_1404_r2=1 if drawing_1404==3;
qui replace drawing_1404_r2=2 if drawing_1404==4;
qui replace drawing_1404_r2=2 if drawing_1404==5;
qui replace drawing_1404_r2=2 if drawing_1404==6;
qui replace drawing_1404_r2=2 if drawing_1404==7;
qui replace drawing_1404_r2=2 if drawing_1404==8;
qui replace drawing_1404_r2=3 if drawing_1404==9;
qui replace drawing_1404_r2=3 if drawing_1404==10;
qui replace drawing_1404_r2=3 if drawing_1404==11;
qui replace drawing_1404_r2=4 if drawing_1404==12;
qui replace drawing_1404_r2=4 if drawing_1404==13;
qui replace drawing_1404_r2=4 if drawing_1404==14;
qui replace drawing_1404_r2=4 if drawing_1404==15;
qui replace drawing_1404_r2=4 if drawing_1404==16;
qui replace drawing_1404_r2=4 if drawing_1404==17;
qui replace drawing_1404_r2=2 if drawing_1404==18;

qui gen drawing_1405_r2=.;
qui replace drawing_1405_r2=0 if drawing_1405==-55;
qui replace drawing_1405_r2=1 if drawing_1405==1;
qui replace drawing_1405_r2=1 if drawing_1405==2;
qui replace drawing_1405_r2=1 if drawing_1405==3;
qui replace drawing_1405_r2=1 if drawing_1405==4;
qui replace drawing_1405_r2=1 if drawing_1405==5;
qui replace drawing_1405_r2=2 if drawing_1405==6;
qui replace drawing_1405_r2=2 if drawing_1405==7;
qui replace drawing_1405_r2=2 if drawing_1405==8;
qui replace drawing_1405_r2=3 if drawing_1405==9;
qui replace drawing_1405_r2=3 if drawing_1405==10;
qui replace drawing_1405_r2=3 if drawing_1405==11;
qui replace drawing_1405_r2=4 if drawing_1405==12;
qui replace drawing_1405_r2=4 if drawing_1405==13;
qui replace drawing_1405_r2=4 if drawing_1405==14;
qui replace drawing_1405_r2=4 if drawing_1405==15;
qui replace drawing_1405_r2=4 if drawing_1405==16;
qui replace drawing_1405_r2=4 if drawing_1405==17;
qui replace drawing_1405_r2=4 if drawing_1405==18;
qui replace drawing_1405_r2=4 if drawing_1405==19;
qui replace drawing_1405_r2=4 if drawing_1405==20;
qui replace drawing_1405_r2=4 if drawing_1405==21;
qui replace drawing_1405_r2=4 if drawing_1405==22;
qui replace drawing_1405_r2=4 if drawing_1405==23;
qui replace drawing_1405_r2=2 if drawing_1405==24;

* assess initial ratings;
/*Get pairwise correlation and Cohen's kappa*/
/*kappa between .61-.8 considered "substantial agreement" (see Alison Johnston email to Todd on May 1, 2017*/
foreach x in proj_desc_1400 specify_1400 idea1_1401 idea2_1401 drawing_1403 drawing_1404 drawing_1405 {;
	di "question=`x'";
	qui corr `x'_r1 `x'_r2;
	di "correlation="r(rho);
	
	kap `x'_r1 `x'_r2, tab;
};

* input reconciled ratings: students met to discuss scores that differed by 2 points or more, and attempted to
	change scores to within at least one point of each other (see section14_forreconciliation.xlsx);
/*Paul Doehring's updated ratings (Rater 1)*/	
qui replace specify_1400_r1=1 if specify_1400=="Baby stitting project";
qui replace specify_1400_r1=1 if specify_1400=="Community and Social service";
qui replace specify_1400_r1=2 if specify_1400=="Cyber cafe and studio production";
qui replace specify_1400_r1=4 if specify_1400=="Entrepreneur";
qui replace specify_1400_r1=0 if specify_1400=="Football player";
qui replace specify_1400_r1=2 if specify_1400=="Hotel";
qui replace specify_1400_r1=1 if specify_1400=="Irish potatoes";
qui replace specify_1400_r1=2 if specify_1400=="Making  big calabash from pumpkin";
qui replace specify_1400_r1=2 if specify_1400=="Making Pineaple juice";
qui replace specify_1400_r1=3 if specify_1400=="Making banana beer";
qui replace specify_1400_r1=2 if specify_1400=="Making compost manure";
qui replace specify_1400_r1=2 if specify_1400=="Making women' s hat";
qui replace specify_1400_r1=2 if specify_1400=="Mobile phones";
qui replace specify_1400_r1=3 if specify_1400=="Modern Design";
qui replace specify_1400_r1=3 if specify_1400=="Mushroom and chicken";
qui replace specify_1400_r1=2 if specify_1400=="Public secretariat";
qui replace specify_1400_r1=1 if specify_1400=="Tamarillo";
qui replace idea1_1401_r1=3 if idea1_1401==2;
qui replace idea2_1401_r1=3 if idea2_1401==2;

/*Julian Schwierzy's updated ratings (Rater 2)*/
qui replace specify_1400_r2=1 if specify_1400=="Baby stitting project";
qui replace specify_1400_r2=1 if specify_1400=="Community and Social service";
qui replace specify_1400_r2=2 if specify_1400=="Cyber cafe and studio production";
qui replace specify_1400_r2=4 if specify_1400=="Entrepreneur";
qui replace specify_1400_r2=0 if specify_1400=="Football player";
qui replace specify_1400_r2=2 if specify_1400=="Hotel";
qui replace specify_1400_r2=1 if specify_1400=="Irish potatoes";
qui replace specify_1400_r2=2 if specify_1400=="Making  big calabash from pumpkin";
qui replace specify_1400_r2=2 if specify_1400=="Making Pineaple juice";
qui replace specify_1400_r2=3 if specify_1400=="Making banana beer";
qui replace specify_1400_r2=3 if specify_1400=="Making compost manure";
qui replace specify_1400_r2=2 if specify_1400=="Making women' s hat";
qui replace specify_1400_r2=2 if specify_1400=="Mobile phones";
qui replace specify_1400_r2=3 if specify_1400=="Modern Design";
qui replace specify_1400_r2=3 if specify_1400=="Mushroom and chicken";
qui replace specify_1400_r2=2 if specify_1400=="Public secretariat";
qui replace specify_1400_r2=2 if specify_1400=="Tamarillo";
qui replace idea1_1401_r2=4 if idea1_1401==2;
qui replace idea2_1401_r2=4 if idea2_1401==2;
	
foreach x in proj_desc_1400 specify_1400 idea1_1401 idea2_1401 drawing_1403 drawing_1404 drawing_1405 {;
	forval r=1/2 {;
		lab var `x'_r`r' "`x', rating `r'";
	};
};

